home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 47.7z / BS1 part 47 / HiSoft BASIC v1.04 (1989)(HiSoft)(Disk 2 of 2)[h Band].7z / HiSoft BASIC v1.04 (1989)(HiSoft)(Disk 2 of 2)[h Band].adf / Data / relread.bas < prev    next >
Encoding:
BASIC Source File  |  1988-12-02  |  393 b   |  17 lines
  1. OPEN "r",#1,"AddressFile.rel",92
  2. FIELD #1,30 AS Nam$,30 AS Address$,20 AS City$,12 AS Phone$
  3.  
  4. ReadData:
  5.   INPUT "Address Number";Nmbr
  6.   GET #1,Nmbr
  7.   IF EOF(1) THEN PRINT "Record out of range." :GOTO ReadData
  8.   PRINT Nam$
  9.   PRINT Address$
  10.   PRINT City$
  11.   PRINT Phone$
  12.   INPUT "Read another record (Y/N)";ans$
  13.   IF UCASE$(ans$)<>"N" THEN ReadData
  14. CLOSE 1
  15. PRINT "File closed. Program ended."
  16.   
  17.